home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_1001_Button < prev    next >
Encoding:
Text File  |  1992-04-08  |  885 b   |  55 lines
  1. %case window field%
  2.     %HandleName%:%        %ControlHandle;
  3. %case create%
  4.     %HandleName% := GetNewControl (%cntlID%, newWindow);
  5.     %Enable?%
  6. %case winAuxiliary%
  7.     {----------}
  8.     Procedure Do%Itemname%;
  9.     Begin
  10.         with cur^ do begin
  11.         end; {with}
  12.     End; {Do%Itemname%}
  13.  
  14. %case track%
  15.     if whichControl = %HandleName% then begin
  16.         if TrackButton (%HandleName%, where) then begin
  17.             Do%Itemname%;
  18.         end;
  19.     end;
  20. %case itemNr%
  21.     %DefineItem%
  22. %case dialog field%
  23.     %Enable?%
  24. %case init field%
  25.     %Enable?%
  26. %case auxiliary%
  27.     %if OK%
  28.     %elsif Cancel%
  29.     %else%
  30.         {----------}
  31.         Procedure Do%Itemname%;
  32.         Begin
  33.         End; {Do%Itemname%}
  34.             
  35.     %endif%
  36. %case enable%
  37.     %Enable?%
  38. %case hit%
  39.     %if OK%
  40.         %Itemname%: begin
  41.                 result := true;
  42.                 done := true;
  43.             end;
  44.     %elsif Cancel%
  45.         %itemname%: begin
  46.                 result := false;
  47.                 done := true;
  48.             end;
  49.     %else%
  50.         %itemname%: begin
  51.                 Do%Itemname%;
  52.             end;
  53.     %end if%
  54. %case finish%
  55.